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IDENT = 


BEGIN 
' 


'# COPYRIGHT (c) 1978 


s 
: 


: !* ALL RIGHTS RESERVED. 
1 
1 


OoOoooooooo 
SSSS3SSssssss 


8 :* ONLY IN oo DANCE W 
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tt TRANSFERRED. 


!* CORPORATION. 
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MODULE MAILSSET( TITLE van /yas MAIL UTILITY SET COMMAND’ 
Dd *v04-000' ) = 
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. 4 BY 
:* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


iw THIS SOFTWARE IS FURNI SHED UNDER A LICENSE 
THE TERMS OF 


:® INCLUSION OF THE ABOVE CoPymicnt NOTICE. SOF TWARE OTHER 
ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THE SOFTWARE IS HEREBY 


AND MAY BE USED AND COPIED 
uc +cE 


; IES THERE 
!® OTHER PERSON. NO TITLE fo” AND OWNERSHIP OF 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANG 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIG 


!* DIGITAL ASSUMES NO RESPONSIB 


FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHIC 


NOT SUPPLIED BY DIGITAL. 
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Ww 
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WITHOUT NOTICE * 
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$3 FACILITY: VAX/VMS MAIL UTILITY 
83 ABSTRACT: SET command handling. 
03 

03 ‘ 

3 ! MODIFIED BY: 

1 v03-010 BLS0255 

0 


New global flags 


V03-009 BLS0246 Benn Schreiber 8-Nov-1983 
Rework for new VMSMAIL.DAT handling. move new mail 
count to VMSMAIL. 


v03-008 BLS0229 Benn Schreiber 29-Jul-1983 
Add SET NOMAIL_DIRECTORY command 
v03-007 BLS02¢5 Benn Schreiber i7-Ju 


983 
Minimize window of confusion in SET MAIL biRecTORY: Enforce 
restriction that personal name must start with alphabetic 
character (informal personal name spec agreement with 
RSX and ARPA-interface mail developers). 


v03-006 BLS0222 Benn Schreiber oy=t9 
Disallow setting the wastebasket folder ms “MA L Me sNEWMAIL 


+4 be T VAX/VMS MAIL UTILITY SET COMMAND 16- se-1 984 91:79:96 VAX= {i Oils =32 


V4. 
ep- NT EKSUMEHASTERSEMAIL cReISET.032:1 2° «1$ 


3 38 H ! ' v03-005 Bu soge0 Benn Scorethe 30-Apr-1983 

: 26 26 T MAIL_DIRECTORY,SE AUTO. PURGE 

: 61 1 v03-004 BLS0217 Benn Schreiber 12-Apr-1983 

i 6 O6¢ 1} Add SET COPY_SELF | 
: 64 4 | i vO3-003 aLso2t1 Benn Schreiber 13-Mar-1983 

; o? ! New commands for ISAM mail files 

: 6 06? 1! v03-002 BLS0202 Benn Schreiber 5-Jan-1982 

: o8 +98 : Check strings for illegal length/characters 
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Declarations 
BRARY Reset LBOART 18": 


] 
EQUIRE 'SRC$:MAILREQ'; 
IBRARY 'LIBS:MAILDEF'; 


EXTERNAL 


ooo 


ESS SSESE ESSE EEEEEE 


EXTERNAL 
+ ADDRES 


=r mo 2 


rraon 
PDOTVA A RPAHAHHMMHPHHAHPHAHARHAHAHAAHAG 


$35 
Cc 


nmnnm 
=< 


aoe ess 


OPER_FILE, 
FORW PRIV. CHECK, 


L 
UTILSREPORT_10_ERROR; 
Declare names for string descriptors 
GLOBAL BIND 


ame ce me em ee ee em ee ee ee ed ed ed ed od = od od 
Cc 
-_ 


ESSING_ MODE (GENERAL), 
DDRESSING_MODE (GENERAL), 


No_MODE (GENERAL) 
ING_MODE (GENERAL 
SING_MODE (GENERALS, 


984 01:20: VAX=11 Bliss-32 V4.0-742 
382 93:23:98 DISKSVMSMASTER: CMAIL.SRCISET.B32;1 


'MAIL file RAB 

‘Control flags 

jbescr jeser of ‘"MAIL' 

' and "NEWMAIL* 

'Descriptor for set cmd prompt 


‘Descriptor for USER F 
‘Current mail file descriptor 
'UAF buffer 

'dev/dir for mail files 

' above + ‘mail.mai' 
‘Descriptor for waste folder 
‘Descriptor for username 

' and for full name 

'RAB for VMSMAIL.DAT 

'UIC of person running MAIL 
'User’s vmsmail recor 
‘Pointer to buffer 


'Get value from CLI 

'Test qualifier present 
‘Create a directory 

‘Rename files 

‘Read and lock VMSMAIL record 
‘Move contents of wastebasketa 
‘Open file if not open 

'Cvt to upper case, honor quotes 
‘Update mail file info rec 
'Update VMSMAIL record 

‘Append a string. 

'Concatenate strings 

' Copy gtring 

'Free dynamic string 

'Get user uaf recor 

‘Open a mail file 

'See if SYSNAM privilege 

'Get file spec from F 

‘Report 1/0 error 


MAILSQ_MAIL_MAI = $DESCRIPTOR('MAIL.MAI") : SBBLOCK; 
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16-Sep-1984 
14-Sep-1984 


GLOBAL ROUTINE MAILSSTRIP_QUOTES(OUT_DESC,IN_DESC) = 
; FUNCTIONAL DESCRIPTION: 


VA 
DI 


12:42:93 


! This routine strips double qoutes (if any) from the input string 
INPUTS: 


IN_DESC = address of string descriptor for input strin 
OUT_DESC = address of string descriptor for output str 


Ing 


IN DESC 


: REF SBBLOCK, 
OUT_DESC 


: REF S$BBLOCK; 


LOCAL 
DESC_1 : SBBLOCKCDSC$C_S_BLNI, 
CHAR : BYTE; 


PONE BEBE BE UIIUIONOnononononononononononononunununn 3 a 
=z 


X-11 Blis 
SKSVMSMAS 


2 
:C 


iss-32 V4.0-742 
TER: CMAI RCIJSET.B32;1 


LITERAL 
DOUBLE_QUOTE = ZASCII ''"; 
DESC_1CDSC$W_LENGTH] = .IN_DESCCDSCS$W_LENGTHI; 
DESC_1CDSC$B_CLASSJ = 0; 
DESC_1CDSCS$B_DTYPE) = 0; 
DESC_ICDSCSA_POINTER) = .IN_DESCCDSCSA_POINTER]; 
IF .DESC_1CDSC$W_LENGTH] GTRU 0 
THEN BEGIN 
CHAR = CHSRCHAR(.DESC_1(DSCS$A_POINTER]); 
IF .DESC_1CDSC$W_LENGTH) GTR T 
AND T.CHA L DOUBLE_QUOTE) 
AND (.CHAR EQL CHSRCHAR(.DESC_1CDSCS$A_POINTERJ+ 
-DESC_1CDSC$W_LENGTH) = 1)) 
THEN BEGIN 
Dest. EDSCSu_LENGTHD = .DESC_1CDSC$W_LENGTH] - 2; 
pesca DSCS$A_POINTER] = .DESC_ICDSCSA_POINTER] + 1; 
END; . 
A STRSCOPY_DX(.OUT_DESC,DESC_1) 
TITLE MAILSSET VAX/VMS MAIL UTILITY SET COMMAND 
IDENT \Vv04-000\ 
-PSECT SCODES,NOWRT,2 
49 41 4D 2€ 4C 49 41 4D 00000 P.AAB: .ASCII \MAIL.MAI\ 
00008 0008 P.AAA: . 
0000000' of -ADDRESS P.AAB 
45 4€ 49 46 10 P.AAD: .ASCII \FILE\ 
90000008 14 P.AAC: .LON 
0' 18 -ADDRESS P.AAD 
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47 4F 4C 


5300090000" 


oo £00 f£00F00 £00 


oo NOW NMOfWON MOM 
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-S$ep-1984 01:20: VAX- 
739871982 93:23:98 UK 
P.AAF: .ASCII \LOG\ 
-BLKB 
P.AAE: .LONG 
«ADDRESS P.AAF 
P.AAH: .ASCII \NOSEND\ 
-BLKB 
P.AAG: .LONG 
«ADDRESS P.AAH 
P.AAJ: .ASCII \NOREPLY\ 
-BLKB 1 
P.AAL: .LONG 
ADDRESS P.AAJ 
P.AAL: .ASCII \SEND\ 
P.AAK: .LONG 
eADDRESS P.AAL 
P.AAN: .ASCII \REPLY\ 
-BLKB 
P.AAM: .LONG 
-ADDRESS P.AAN 
P.AAP: .ASCII \WASTENAME\ 
-BLKB 3 
P.AAO: .LONG 9 
«ADDRESS P.AAP 


-PSECT SOWNS,NOEXE,2 


COMMAND DESC: 


DYN_DESC +0 re 
YTE 
-BLKB 


MAIL$Q_ MAIL_MAI== 
SO_FILE= 


SD_L 

SD-NOS END= 

SD-NOREPLY= 

SD-SEND= 
EPLY= 

So -WASTENAMES 


S--Oo £0 FO 


Seeeeeeeee 
Ome On bat Oat be bs De ans bm 
Oe 


on on 
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us —_) 
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orm 
ee ™ 
=) 


20"742 
TER: (MAIL. SRCJSET.B32;1 


sraiuso “MAILDEF 
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MAILSSET VAX/VMS MAIL UTILITY SET COMMAND ihese -1984 01:20: VAX-11 Bliss-32 V4.0-742 Page 7. 
rae ft aaa 1 93:29:98 DISKSVMSMASTER:CMAIL-SRCJSET.B32;1 > (3) | 

.EXTRN MAILSL_MYUIC, MAILSL_USRSYSBUF 

EXTRN MAILSL SYSMAIBUF 

TEXTRN CLISGET VALUE, CLISPRESENT 

SEXTRN LIBSCREATE DIA LIBSRENAME_FILE 

“EXTRN MAILS$GETLK SY SHAT R 

-EXTRN MAILSMOVE_QASTEBASKET 

-EXTRN MAILSOPEN-IF, MAILSUPCASE_Q 

“EXTRN MAILSUPDATE_INFO_REC 

-EXTRN MAILSUPDATE-SYSMAI REC 

EXTRN STRSAPPEND, STRSCONCA I 

TEXTRN STRSCOPY_DX, STRSFREE 

“EXTRN MAILSGET~USER, RAILSOPEN. FILE 

EXTRN MAIL$FOR@_PRIV_CHECK 

EXTRN UTILSGETFILENAME 


-EXTRN UTILSREPORT_10_ERROR 
.PSECT $CODE$,NOWRT,2 


0000 00000 SENTRY MAILSSTRIP _QUOTES, Save nothing : 
5E 04 C2 90002 SUBL2# : 
50 08 AC p 0000 MOVL IN. bese RO, + 0327 
7E 60 3¢ 00009 MOVZWL RO) DESC ; 
04 AE 04 Ad 00 0000¢ MOVL (ROS pest. 144 + 0330 
50 6€ 3C 00011 MOVZWL Best 1, RO : 0332 
1E 13 00014 BEQL  ~=«:'1$ ; 
51 04 BE 90 00016 MOVE §@DESC_1+4, CHAR + 0334 
01 50 B1 OOO1A CMPW = soéRO,, #T + 0335 
15 1B 0001D BLEQU 1$ ; 
22 51 91 OOO1F CMPB = CHAR, «#34 : 0336 
10 12 00022 NEQ  1$ ; 
50 04 AE CO 00024 ADDL2 DESC_1+4 : 0338 
FF AO 51 91 699 8 CMPB  —s- CHAR; “Tiros : 
06 If: 002C BNEQ 1$ ; 
6E 02 A2 0002E SUBW2 #2, DESC_1 + 0340 
04 AE 06 00031 INCL  DESC_1+4 > 0341 
SE DD 00034 1$ PUSHL SP > 0345 
04 AC DD 00036 PUSHL  OUT_DESC : 
000000006 00 02 FB 00039 CALLS #2, STRSCOPY_DX ; 
04 00040 ET + 0346 


; Routine Size: 65 bytes, Routine Base: S$CODE$ + 0078 
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MAILSSET VAX/VMS MAIL UTILITY SET COMMAND 16-Sep-1984 01:20: VAX=11 Bliss-32_V4.0-742 Page 8 mw 
vO4 er8Sp-1obe $2:c5:88 — DARKSVMGHASTERSCMAIC cheaser.a32;1 2% «48 vC 
: 205 7 1 ROUTINE CHECK_STRING(DESC .MAXLENGTH) = 
3 Be rk 1 !e4 
: 44 4 } FUNCTIONAL DESCRIPTION: 
H +4 : : Check a string for too long or illegal characters 
3 11 : 1 ! INPUTS: 
5 1g 7 8% 
; 2 $ 1! DESC = Addr of ofring descriptor for string 
3 1 $ ! MAXLENGTH = Max Length allowable for string 
: 1 1 ' ROUTINE VALUE: 
: i$ § = 
; 218 0360 1! true if all ok, else error 
; 19 5 61 1 !e- 
; 0 66 BEGIN 
; 1 036 
; ¢ 0364 MAP 
3 0365 DESC : REF SBBLOCK; 
; 226 R208 
3 5 tr LOCAL 
: 6 0368 CHAR : BYTE, 
3 7 0369 PTR; 
: 228 0370 
; $3 0371 ! 
; 0 Bag ! Check Length of string 
; 231 037 } 
. o- 0374 IF .DESCCOSCS$W_LENGTH] GTRU .MAXLENGTH 
; § 3 0375 THEN BEGIN 
: 4 p76 SIGNAL (MAIL$_NAMTOOBIG,1,.DESC); 
: 235 037 RETURN MAIL$_NAMTOOBIG 
2 ead 8 Fes 
; 34 0380 ! Check for characters with high bit on or illegal character (less than 
: $i0 tte @ space, and not a tab) 
: st) O388 PTR = PESCCDSCEA POINTER: 
; ri} 0384 INCRU I FROM 1 TO” .DESCCDSC$W_LENGTH) 
: 26 0385 DO IF ((CHAR = CHSRCHAR_A(PTRY) AND %X'80") NEQ 0 
: 246 Beno OR ((.CHAR LSSU %C° *) AND (.CHAR NEQ 2C° ")) 
: 45 038 THEN BEGIN 
; 46 0388 SIGNAL (MAIL$_ILLCHAR,3,.CHAR, .DESCCOSCSW_LENGTH), .DESCCDSCSA_POINTER)); 
s 47 0389 RETURN MAILS$_ILLCHAR 
: 248 8 90 END; 
; 249 91 
3 $20 0338 RETURN TRUE 
3 51 03935 1 END; 
OOFC 00000 CHECK_STRING: 
«WORD Save R2,R3,R4,R5,R6,R7 : 0347 
22 000000906 00 of 00 MOVAB LIBSSIGNAL, R? ; 
‘ 4 AC D 00 MOVL + R ; 0374 
08 Ac 62 1 00 €ED 0000 CMPZ2v #0, #16, (R2), MAXLENGTH ; 


; Routine Size: 
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007€8092 
0 007E8092 
se 04 
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007E809A 


67 
50 007E809A 


Routine Base: S$CODE$S + 0089 
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9 
16-Se 1984 01:20: 
1erSep-1986 f2:aesse 
cen ROUTINE MAILSCMD_SET_FORWARD (DELETE_FLAG) = 
FUNCTIONAL DESCRIPTION: 


VAX=-11 8 
DI SK $VMSN 


This routine is called to modify the forwarding address of a user. 


i INPUTS: 


DELETE_FLAG Present if SET NOFORWARD. 
MAILSQ_USERNAME Descriptor of username string 


i 

! 

' 

1 

1 

! 

i 

{ IMPLICIT INPUTS: 
MAILST_SYSMAIRAB RAB for 1/0 on SYSSSYSTEM:VMSMAIL.DAT 
; OUTPUTS: 

' 
! 


SYSSSYSTEM: VMSMAIL.DAT is created if it does not exist. 


record is modified, or added if it does not exist. 


BEGIN 
BUILTIN 
NULLPARAMETER; 
LOCAL 
UF : SBBLOCKCNAMSC -MAXRSS}, 
DIRBUF : SBBLOCKCNAMSC_MAXRSS), 
TMPBUF : SBBLOCKCVMD_C"LENGTH + 3*NAMSC_MAXRSS), 


PTR, 
PROXY_F'.AG, 
STATUS; 
PROXY_FLAG = 
IF NUCL BARANESER 1) 
THEN BEGIN 


cLIscer VALUE (MALL SSD, SE Serr COMMAND_DESC); 
SSTRIP_QUOTES(C DES C, COMMAND DESC); 
MAILSUPCASE. Mrtbamu Pe Dest 


END 
ELSE STRSFREE1_DX(COMMAND_DESC); 


IF ae STRING (COMMAND_DESC ,NAMSC_MAXRSS);, 
TURN .STATUS); 


IF wor CLISPRESENT(RAILSSD USER) I 
THEN CHSMOVE (V C_LENGTH+.MAILSL Usk SY 
st _USR SYSBUF (VED _B_FNM 
“% + RAILS USRSYSBUFCVMD-B-DIR 
L$L_OSRSYSBUF , TAPBOFY 


' Assume for self 


fn 
aoe VMD_B_ FUDLN 


th /USER=, 
LNG 


ELSE BEGIN 
i Ensure user has SYSNAM in process privilege mask 


ir NOT MAILSFORW RUE CHECK() 
THEN RETURN TRUE 


The user 


'Get forwarding address 


! Ensure 0 forwarding address 


then do self 
NG] 


$-32 V4.0-742 
TER: CMAIL.SRCJSET.B32;1 


Parameter absent if SET FORWARD 


Page 
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9 
VAX/VMS MAIL UTILITY SET COMMAND hs Sep =1986 1: +20: 96 VAX-11 Bliss-32 V4.0-742 Page 
14-Sep-1984 12: DISKSVMSMASTER: CMAIL. SRCJSET.B32;1 
451 
4 : PROXY_FLAG = CLISGET_VALUE(MAILSSD USER, DYN_DESC); 
4 CHSCOPY( DYN pEseye DStSw LEN TH, ! Copy mame from /USER= 
454 .DYN_DESCCDSCS$A_POIR FR a 
04 5 vMD_C_USERNAME THoB PBUFCVMO_T USERNAME) ; 
496 MAIL$T_SYSMAIRABCRABSL_KBF) ="TAPBU ! Set to read the record 
04 MAILST~SYSMAIRABCLRABSL_UBF) = TRPBUE ; 
458 MAILST~SYSMAIRAB RABSV-NLK) = FALSE; 
0459 4 IF NOT $GET(RAB=MAILST_SYSMAIRAB) ' If it doesn't exist, zero record 
0460 THEN CHSFILL(O,VMD~C_L NGTH+NAMSC MAXRSS-SBYTEOFFS SETC VMD_W_FLAGS), 
0461 TMPBOFCVMD_W_FLAGSJ); 
ee ? END; 
Bree If trying to forward to self, then set no Wereeichie, 
BS66 CHSMOVE (. TMPBUF CVMD_B_FNMLNG), ave full user name 
046 TMPBUF YD of FUDNAR +. THPBUF CVMD_B_ FUDLNG . NAMBUF ); 
0468 2 CHSMOVE(. TMPBUF Vb BD NGI, Save 
ne 4 TMPBU ity p_T FUDNAM +. TMPBUF CVMD_B_FWOLNGJ+ v MPSUE LUND B PENMLNG. 
0471 IF NOT -PROXY_ FLAG 
047 0 ERSEOLVAE C C LUSERNAME TMPBUFCVMD_T_USERNAME] 
047 . COMMAND WALENGTH, COMMAND _DESCCDSCSA_POINTER],* *) 
0474 THEN Sans May 8. PSS eNG 
0475 LSE BEGIN 
0476 CHSMOVE (. COMMAND_DESCCDSC$W_LENGTH] 
9677 : COMMAND TESS CEDSCSA POINTER, 
9479 TMPBUF LVMD B_ munis” VCORMRND _DESCCOSCSW_LENGTH); 
0481 PTR = CHSMOVE(. yeti ee B_FNMLNG] ,NAMBUF , 'Restore full user name 
048¢ TMPBUFLVMD_T FUDNARA +. TRPBUFLVMD “B_FWDLNGJ); 
048 CHSMOVE (. TMPBUFCVMD B PO YBCRG’ DIRBUF , 
0484 MAILSUPDATE _SYSMAI REC IMPBUF 5; ‘Update the record 
0486 2 RETURN TRUE 
0487 1 END; 
EXTRN SYSS$GET 
OFFC 00000 ENTRY MAILSCMD_SET_FORWARD, Save R2,R3,R4.R5,R6,- 
7 Rg ROTR10R11 
5B 900000006 0 9 90002 MOVAB i §p_USER, R11 
Sa 00 99 6 6 00 9€ 900 VAB CLISGET~VALUE, R10 
39 000000006 00 9E 00010 VAB -MAILST SYSMAIRAB+48, R9 
38 0000000' 00 9€ 0001 MOVAB NB_DESC, R 
£ F ABC ce GE 1 MOVAB -1348(SP), SP 
ps CLRL  PROXY_FLAG 
6¢ TSTB (AP) 
13 00 BEQL 1$ 
06 AC p 9 TSTL 4(AP) 
1F C BNEQ 2$ 
D F 13: PUSHL R8 
000000006 F PUSHAB MAILS$SD_SETF1 
A FB 000 CALLS #2, CLISGET_VALUE 


0394 


| 
(5) 
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9 
MAILSSET VAX/VMS MAIL UTILITY SET COMMAND 1b-se -1984 VAX=-11 Bliss-32 V4.0-742 Page 12 
rae ft 1 ~8ep-1984 9}: 23: 98 DISK$V nen ASTER:CMAIL.SRCISET.B32:1 oe (5) 
DD 9 PUSHL : 043 F 
DD %6 PUSHL ; : . ; 
FEOF CF FB i CALLS ’ , MAILSSTRIP_QUOTES I acm : 
000000006 00 1 FB 4 CALLS #1, MAILSUPCASE_Q : : 
S bp Oooee 28: Beem, ORB ark 
000000006 90 1 FB OO04F CALLS a,  STRSEREET DX : : 
E FF OF A 36 3$: MOVZBL =(SP) + 0438 : 
FF31=sCF 03 FB 005¢ CALLS 5 CHECK STRING : : 
01 ; 061 BLBS Sth , 48 : ; 
5B bb O00eS 4S PUSHL R11 + 0440 
000000006 90 gt Fe 9067 CALLS a, CLISPRESENT : ; 
$5 000000096 00 pO 0907 OVL MAILSL_USRSYSBUF, RO + 0441 : 
51 43 AO 9A 00078 MOVZBL 67(RO);> R1 + 0442 ; 
52 AO SA 0007C MOV ZBL 66(RO), R2 : 
51 52 C0 9080 ADDL Ree R1 : 
52 41 AO 9A 0008 MOVZBL 6 (RO) R2 + 0443 
51 44 A241 3 0087 MOV 6B(R dfat R1 : 
6E 60 51 28 0008C¢ MOVC3 R1, (RO), TMPBUF + 0441 
44 11 00090 BRB 7$ : 
000000006 00 00 FB 0092 5$: CALLS #0, MAILSFORW_PRIV_CHECK + 0449 
03 50 E8 00 BLBS RO, 6$ : 
00A1 31 0009C¢ BRW 10$ F 
08 AS OF 0009¢ 6$: PUSHAB DYN_DESC + 0452 
6A 08 eS SOAL CALLS a! CLISGET VALUE ; 
57 50 50 SOAs MOVL a5° § AG : 
50 OC A8 DO OOOAA MOVL DYN_ DES gry Od RO : 0454 
1F 20 60 08 As 2¢ OOOAE MOVCS DYN"DESC, (RO), #32, #31, TMPBUF + 0455 
69 6€ 9E 00085 MOVAB TPBUF MAIL$T_SYSMAIRAB+48 > 0456 
F4 AO 6€ 9E 00088 MOVAB TMPBUE MAIL$T~SYSMAIRAB+36 : 0457 
D6. AD 10 8A 000BC BICB2 #16, MAIL$T_SYSMAIRAB+6 : 0458 
D0 «(AD OOF 90¢0 PUSHAB MAILST_SYS LT MRIRAB + 0459 
000000006 00 gi FB 990¢ CALLS #1, SYSSGET : 
09 0 E OOCA BLBS . ; 
0124 8F 00 6E ma 00 C 900¢D MOVCS #0. (SP), #0, #292, TMPBUF +31 > 0461 
50 4g AE 9A 00006 7$: MOVZBL TMPBUF +66, RO + 0466 
56 43 AE 9A OOODA MOVZBL TMPBUF +6 R6 > 0467 
FFOO CD 44 AELE 5 ¢8 DE MOVES RO peau CR6], NAMBUF : 0466 
51 41 AE 9A 000E6 MOVZBL TMP : 0468 
30 42. AE 9A OOOEA MOVZBL TMPBUE +66, RO : 0469 
0 56 C0 00 EE ADDL , RO : 
FEOO CD 44 AE4O 31 2 E MOV rth a DIRBUF > 0468 
11 7 €£ 9 BLBS Pndx : 0471 
50 04 As D F MOVL COMMA MMARD Uegcee > 047 
68 20 6E 1F 20 CMPCS #31, TMPBUF, "hho" O ONMAND DESC, (RO) : 047 
$8 12 1 BNEQ 8$ ; 
43 i 94 CLRB TMPBUF +67 > 0474 
56 68 3C 0010D 8$ MOVZWL COMMAND_DESC, R6 > 0476 


SSP . . -] aa 


k 9 

MAILSSET VAX/VMS MAIL UTILITY SET COMMAND bse -1984 VAX=-11 Bliss-32 V4.0-74 Pa 3 
Hyatt 1ox80R-13B2 95:28:98 We GAASPERC CHAI? GReaser.e32;1 '2%° <3} 
5 04 A 11 MOVL. COMMAND_DESC+4, RO : 0477 
44 AE 20 ; 23 112 MOVC3 RS, (ROY TMPBUF +68 + 0478 
43 AF 119 MOVB BUF +67 + 0479 
3 42 AE 9A 00110 9$: MOVZBL Res The mS} + 0481 
0 43 AE 9A 00121 MOVZBL TMPBUF +6 + 0482 

44 AEGO FFOO 836 CD 51 28 00125 MOVC nana RO APBUF *68CROJ : 
50 41 Ar A 00120 MOVZBL I Fab +65, R + 0483 

63 FEOO §3= CD 8 00131 MOVC3 RO, Meu (PTR) : 
E DD 00137 PUSHL SP + 0484 

000000006 90 1 FB 139 CALLS #1, MAILSUPDATE_SYSMAI_REC : 

1 p 149 10$:  MOVL #1. RO > 04 

4 0014 RET : 048 


; Routine Size: 324 bytes, Routine Base: $CODE$ + 0127 
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9 
SSI cee rw RIE BE Coes VESEEISRE GUs29:08 SMD deBbLat Ahi laser osas 


; rk} a89 } — ROUTINE MAILSCMD_SET_NOFORWARD = 

; $f 490 | { FUNCTIONAL DESCRIPTION: 

3 3g 49 1 This routine is called to turn off forwarding for a user 
: 354 0494 1 i-- 

: 55 0495 1 

3 56 0496 1 RETURN MAILSCMD_SET_FORWARD(1); 


0000 00000 .ENTRY MAILSCMD_SET_NOFORWARD, Save nothing 
01 DD 00002 PUSHL #1 
FEBS CF 01 FB 00004 CALLS #1, MAILSCMD_SET_FORWARD 
04 00009 RET 


; Routine Size: 10 bytes, Routine Base: S$CODE$S + 0268 


Page 14 
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MAILSSET VAX/VMS MAIL UTILITY SET COMMAND 16-Sep-1984 01:20: VAX-11 8 20-74 P 1 
vO4=000 14 4 93:29:98 ISKSVMSMASTER: CMAIL.SRCISET.B32;1 (7 


~Sep-1984 D 


<= 


| 
; 38 497 GLOBAL ROUTINE MAILSCMD_SET_SELF = | : 
3 60 639 i FUNCTIONAL DESCRIPTION: | : 
: 36 201 1/ Process the SET COPY .SELE command, which sets the commands on : 
; 2 ¢ 72 which an automatic copy is sent to the sender. | : 
; 364 05 1! 3 
; 365 504 1 I-- ; 
; 66 505 2 BEGIN ; 
; 05 $ LOCAL : 
; 368 050 DESC : VECTORC2,LONG), : 
; ) 4 STATUS; F 
: i 345 
: 37 0511 IF MAILSGETLK_SYSMAI REC (MAIL SQ USERNAME , DESC) 
: i O51¢ THEN CHSMOVE(.DESCCOJ,.DESCE1), .MAILS$L_USRSYSBUF); 
: 378 0514 2 IF CLISPRESENT(SD_SEND) 
; 376 0515 THEN MAILSL_USRSYSBUFCVMD_V_SELFSEND] = 1 
; 377 0516 ELSE IF CLISPRESENT(SD NOSERD) 
; 378 0517 THEN MAILSL_USRSYSBUFCVMD_V_SELFSEND] = 0; 
3 64 0518 IF CLISPRESENT(SD_REPLY) 
; 380 0519 THEN MAILS$L_USRSYSBUFCVMD_V_SELFREPLY] = 1 
3; (381 0520 ELSE IF CLISPRESENT(SD _NOREPLY) 
3 $88 B3 1 THEN MAILSL_USRSYSBUFCVMD_V_SELFREPLY] = 0; 
: 384 0598 RETURN MAILSUPDATE_SYSMAI_REC(.MAIL$L_USRSYSBUF ) 
; 385 0524 1 END; 


01FC 00000 .ENTRY MAILSCMD_SET_SELF, Save R2,R3,R4,R5,R6,R7,- ; 0497 
58 000000006 00 9€ 00002 MOVAB CLISPRESENT, R8 : 
57 FDCA CF 9€ 00009 MOVAB SD_SEND, R ; 
56 000000006 00 H 00006 MOV MATLSL_USRSYSBUF, R6 : 
5E 8 C2 0001 SUBL2 #8, SP ; 
BD 0018 PUSHL + 0511 
000000006 0 F OOO1A PUSHAB MAIL$Q_USERNAME ; 
000000006 00 Q FB 09 9 CALLS ’ , MATLSGETLK_SYSMAI_REC ; 
50 56 00 09 A MOVL. MAILSL_USRSYSBUF, RO + 0512 
60 04 BE 66 9 p MOVC3 DESC, SDESC+4, (RO) F 
57 OD 6 1$: PUSHL > 0514 
48 gi FB 0034 CALLS #1, CLISPRESENT ; 
09 0 €9 00037 BLBC : 
50 66 b A MOVL mAiLgt USRSYSBUF, RO > 0515 
1F AO 1 D BISB2 #1, 31TRO) ; 
10 1 4} BRB ; 
E4 A? 9F 00043 2% PUSHAB 5$D_NOSEND ; 0516 | 
68 gi FB 46 CALLS #17 CLISPRESENT ; 
07 O€ 49 BLBC =O séR ; 
0 66 00 0004C MOVL mall gt USRSYSBUF , RO > 0517 
1F AO 01 BA 0004F BICB2 #1, 31TRO) ; 
10 A? 9F 00053 38: PUSHAB REPLY > 0518 


N 9 
rae tt septa Rca. ns Stn ttn 1 3en198e 92:29:55 DASKSVMGMASTERSCMAIL, SREISET.832;1 


68 oI FB 056 CALLS #1, CLISPRESENT 
93  § § ¢ Hitt RAL USRSYSBUF, RO 
1F AO § ts 2 BISB2 LS e rth 
10 11 é RB 
F4 OA?OSF 4$ PUSHAB S$D_NOREPL 
6 Q1 i: CALLS #17 ISPRESENT 
Q 0€ B BLBC 
0 66 bo E MOVL MAILS. Us USRSYSBUF , RO 
1F AO é A 000 BICB2 
6 DD 00075 5$ PUSHL nAfust OSRSY SBUF 
000000006 00 1 FB 0 a CALLS rE AATLSUPDATE _SYSMAI_REC 


; Routine Size: 127 bytes, Routine Base: S$CODE$ + 0275 
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MAIL UTILITY SET COMMAND 


GLOBAL ROUTINE MAILSSET_NAME 


(FULL_DESC) = 


i FUNCTIONAL DESCRIPTION: 


This routine u 
from MAIL$Q_US 


dates the string MAILS$SQ_FULLUSER with the username 
RNAME and the full name passed in FULL_DESC 


' 
i 
i 
INPUTS: 
; FULL_DESC = address of descriptor of full name (without quotes) 
i OUTPUTS: 
; MAIL$Q_FULLUSER updated 
BEGIN 
MAP 
FULL_DESC : REF S$BBLOCK; 
SPACE_DESC = $DESCRIPTOR(' '), 
QUOTE-DESC = SDESCRIPTOR(''"); 
IF .FULL_DESCCDSCS$W_LENGTH] NEQ 0 
THEN RETURN STRSCONCAT (MAIL$Q_FULLUSER ,MAIL$Q_USERNAME , 
SPACE _DESC,QUOTE DESC,.FUCL DESC, QUOTE_DESC) 
(MAIL$Q_FULLUSER ,MAIL$Q_OSERNAME ) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BIND 
2 
1 


cup ,ELSE RETURN STRSCOPY_DX 


20 O02F4 P.AAR: ASCII \ \ 
0025 “BLKB 3 
00000001 002F8 P.AAQ: <LONG 1 
00000000" O02FC “ADDRESS P.AAR 
22 00300 P.AAT: ‘ASCII \'\ 
00301 “BLKB 3 
00000001 00304 P.AAS: ‘LONG 1 
00000000 00308 “ADDRESS P.AAT 
SPACE_DESC= P.AAQ 
QUOTE ~DESC= P- AAS 
001¢ 00000 ENTRY MAILSSET_NAME 
$4 000000006 00 9 00002 MOVAB MAIL$Q_FOLLUSER 
53 000000006 00 9€ 00 MOVAB MAILS$Q-USERN 
52 FS AF 9 10 MOVAB QUOTE DESC, R2 
4 BC 85 0014 TSTW © @FULL DESC 
17 BEQL «6s 
52 DD 00019 PUSHL R2 
04 AC DD 0001B PUSHL FULL_DESC 
52 DD 0001 PUSHL 
FL AO OOF PUSHAB SPACE_DESC 
33 pp PUSHL 3 
4 od PUSHL R& 


0-742 
L.SRCISET.832;1 
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Save R2,R3,R4 
~ RS 
AME, R3 


MAILSSET VAX/VMS MAIL UTILITY SET COMMAND 1b-3¢ Sep-1984 VAX-11 Bliss-32 v4.0-7 
vet 12=8eR=1 382 93:28:98 | Weebl sta Me One 
000000006 00 06 FB 7 CALLS #6, STRSCONCAT 
3 
3 DD Foy PUSHL R& 
000000006 00 02 FB 00 3 CALLS #2, STRSCOPY_DXx 


; Routine Size: 59 bytes, Routine Base: S$CODE$ + 030C 
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; Routine Size: 48 bytes, Routine Base: SCODE$ + 0347 


D ae 
MAILSSET VAX/VMS MAIL UTILITY SET COMMAND 16-Se :2 VAX-11 Bliss-32 V4.0-742 Page 19 
yosc 008 Ve-Sep=15be 2icoces «| PEeKSVMOAASTERS MAIC cheaser.ase;1 729° <b? 
3 ret ; $ ! ROUTINE ALPHA_CHAR (CHAR) = 
; £38 2 $ : ! FUNCTIONAL DESCRIPTION: 
: 421 558 1! Tests the character. Returns true if A-2 or a-z, or $ or _, else error 
; 4 ¢ 8228 1 !-- = 
3; 6 60 BEGIN 
> 426 0561 MAP 
: 425 §26¢ CHAR : BYTE; 
: 426 bee 
: 627 564 IF ((. om GEQU %C°A*) AND (.CHAR LEQU %C'Z') 
: 428 $26? OR h .CHAR GEQU %C'a') AND (.CHAR L ey at'2")) 
; 429 66 OR (. CHAR eG zc'$") OR (.CHAR EQL 
; 430 0567 THEN RETURN TRUE 
; 431 0568 ELSE RETURN FALSE 
: 432 0569 1 END; 
0000 00000 ALPHA_CHAR: 
«WORD Save nothing ; 0554 
50 04 AC 9A 00002 MOVZBL CHAR, RO 3 0564 
41 =F 50 91 00006 CMPB RO, #65 3 
06 1F OOOOA BLSSU _1$ : 
SA BF 50 91 0000C CMPB RO, #90 3 
17 1B 00010 BLEQU 3$ 3 
61 = BF 50 91 00012 1$: CMPB RO, #97 3; 0565 
06 1F 00016 BLSSU _2$ F 
7A 8F 50 91 00018 CMPB RO, #122 : 
0B 1B OOOIC BLEQU 3$ § 
24 50 91 QOOIE 2$: CMPB RO, #36 3; 0566 
06 13 00021 BEQL 3$ 3 
SFB 50 91 00023 CMPB RO, #95 3 
04 12 00027 BNEQ 4$ : 
50 01 DO 00029 3$: MOVL #1, RO ; 0568 
04 0002C RET ; 
50 04 Bpo5e 4$: CLAL RO : 

04 0002F RET 3; 0569 
| 
| 
| 


10 | 
MAILSSET VAX/VMS MAIL UTILITY SET COMMAND ihese 1986 01:20:06 VAX-11 Bliss-32 v4.0-742 Page 20 
v04 14-Sep-1984 12:42: DISKSVMSMASTER: (MAIL. SRCJSET.B32;1 (10) 


ROUT INE SET_NAME (NAME_DESC) = 
i FUNCTIONAL DESCRIPTION: 
Set the full username for the SET PERSONAL_NAME command 


pape foo jlo lolelojlolelelelelolololololeleleoleleleleleololololo) 
SA Ab Ab Ab AL Ab Ab Ab Ah Ab db dh dh db db db dub dh dich dich eh ih dh dh db bh db dh hh al 


DOODODO OOOO OWDWDOWODWDWDOOO NINN 


; 1 

3 1 

: 1 

; 1 

: 4 7 

3 > % 

; § 1 

; BEGIN 

; § MAP 

: 9 NAME_DESC : REF S$BBLOCK; 

5 ¢ LOCAL 

: DESC : VECTORC2,LONG) 

> 44 4 DIRBUF : SBBLOCKENAMSC_MAXRSS2, 

: 4649 5 TMPBUF : SBBLOCKCVMD_C-LENGTH + 3*NAMSC_MAXRSSJ, 

3 6 PTR : REF VECTORC BYTES, 

3 $23 i STATUS; 

: 438 3 MAILSSTRIP_QUOTES(.NAME_DESC,.NAME_DESC); 

: 455 Pp 1 IF LERR(CHECK STRING(.NAME_DESC,127);, 

: £28 ; RETURN .STATUS); 

; 458 4 IF .NAME_DESCCDSC$W_LENGTH] GTRU 0 

: 459 5 THEN BEGIN 

: 460 6 PTR = .NAME DESCLDSCSA POINTER): 

3; 461 IF NOT ALPHA CHAR(.PTRIO] 

: 462 8 3 OR NOT CASPAIL CCHSF IND SUB( .NAME_DESCCDSC$W_LENGTH), 

; 9 3 .NAME_BESCCOSCS$A-POINTER],2,UPLIT(* '))) 
; 9600 THEN RETURN SIGNALCMATLS. ILLPERNAM,1,.NAME_DESC); 

; 960 MAILSSET _NAME (.NAME_DESC); ' Set new full name 

; 0604 2 MAILSGETLK_SYSMAI_REC(MAILSQ USERNAE DESC); 

; 0605 2 CHSMOVE( (DES C(O), DESCC1), .MAIL$SL_USRSYSBUFS; 

: 0606 2 CHSMOVE(.MAILSL GsRgyseur CVMD_6 sus hte 

: 0607 IL $ OSRSYSB BUF CYMD r FUDNAR + .MAILSL USRSYSBUF CVMD_B_FWDLNG]+ 
3 0608 RAILSE USRSY vMB_6_FNMLNG],DIRBU 

: 0609 2 PTR = MAIL$L_USRSYSBUF vi “i FwONAM RAIL SL Usrsy saur VMD_B_FWDLNGJ; 
: 0610 MAILSL UsRs¥SBUF tv VMD_B_FNMCNG) = .NAM ce pst$w GTH 

; 0611 = CHSMOVE (NAME. DESCCDSCSW_LENGTH);.NAME. DES Serbs CSA. POINTER. PTRLO)); 
3 9d CHSMOVE MAILSL MUSRSYSBUF vmp_6 _DIRLNGS, DIRBOF ,PTRLOJ); 

3 614 RETURN MAILSUPDATE_SYSMAI_REC(.MAILS$L_USRSYSBUF ) 

3 0615 1 END; 


etd -BLKB 1 
00 00 20 20 00378 P.AAU: .ASCII \ \<0><0> : 


O7FC 00000 SET_NAME: 


: Save R2,R3,R4,R5,R6,R7.R8,R9,R10 : 0570 | 
SA FCF6 CF 9E 00002 MOVAB MAILSSTRIP_QUOTES, R10 ; | 


MAILSSET VAX/VMS MAIL UTILITY SET COMMAND 
VO4=000 
FBBS ce 9 
ae an a 
2 DD 
DD 
A FB 
E 7F F OA 
41 AA ; ee 
: bi 
es 8 
59 04 3 i 
7E 9 9A 
O2cF CA 1 44 
11 0 4 
06 =«2«BB 68 CO oAF a8 73 
5 D 
33 0 te 
12 1 
58 DD 
01 OD 
OO7ESOFA 8F ODD 
000000006 00 03 4 
58 DD 
0294 CA 01 FB 
F8 AD 9F 
00000000G 00 9F 
000000006 90 02 F 
6 soseceres 00 »D 
66 FC BO F AD § 
1 41 Ab QA 
50 43° Ab DA 
57 56 50 C1 
29 42 Ad QA 
FEF8 CD 44 A04 51 8 
59 44 AT 
42 Ab 68 9 
69 04 8 g 2 
9 dO 
50 41 A6 9A 
69 FEF8 CD 2 28 
6 OD 
000000006 00 01 FB 
04 
; Routine Size: 187 bytes, Routine Base: S$CODE$S + 037C 


DOQOQCOCOCOCOOCOCOCOCOCOCOOOOOOOOOOOOOO 


SoOoooooooooooooooo 
WN 4 0999 9 tte eee 


OODOoCoCoocoo 
pejojlelolololololo) 


St et 


AOE MNNIE & 
VOC DD r>WwoOWonNrem 


SNS 


polo lolololojlolol a) 
Coco“ 
~wn 


OoOoooooooo 


Ssss 
ooo 
LST 


2s: 
3$: 


4$: 


VAX-11 Bliss=32 V4.0-742 
DISKSVMSMASTER: (MAIL. SRCJSET.B32;1 


-1100(SP), 
NAME. DESC. 38 
R 
#2, MAILSSTRIP_QUOTES 
1 87, =(SP) 
#2, CHECK _STRING 
STATUS, 18 

(RB) 
4$ 
4(R8), PTR 

(PTR). =(SP) 

"1, ALPHA_CHAR 


ne. P.AAU, (R8), 


i a 


a4(R8) 


Ho  T8SSIGNAL 


R8 
4F MAILSSET_NAME 


mAIL$Q USERNAM 
RAILSGETUR. SYSMAI_REC 
mais USRSYSBOF, R6 


DES¢ SDESC+4, (R6) 
65(R6), RI 

67(R6). 

RO, RG. R 

66(R6). 

R1, e8in0) (R79, DIRBUF 
68(R 

(RB), E6CR (R6) 

(RB). a4(RB), (PTR) 

RS PTR 

65(R6) 

RO, Sihece , (PTR) 

#1, MAILSUPDATE_SYSMAI_REC 


| 
Page 1 
915) 


. 
o 
. 
cm 
s 
o 
. 
. 
@ 
eo 
e 
o 
_ 
e 
- 
e 
e 
. 
e 
o 
o 
o 
: 
a 
o 
o 
o 
a 
e 
e 
© 
. 
. 
e 
. 
. 
o 
. 

o 

e 

a 

o 

° 

° 

. 

. 

7 


: 0589. 


; 0592, 


: 0594 


: 0596 
: 0597 


ose 


<=z 


10 
MAILSSET VAX/VMS MAIL UTILITY SET COMMAND 18. $ep-1984 01:20: VAX-11 Bliss-32 V4 
ve 1a-8ep-19 4 9:29:98 
nen ROUTINE MAILSCMD_SET_NAME = 
FUNCTIONAL DESCRIPTION: 


i Process the SET PERSONAL_NAME command 


Be Se Ge Oe ee Se Oe Se ee Oe Oe Se eee 

a ee 
RASLSSSELEAEALES 
aattattatctae tutte 
RoRoRoPorororonofnin 


ODONA NEW OOOO 


—foronononofnon a 


BEGIN 
CLISGET eng Fer LS$SD_SETN1, COMMAND DESC); 'Get full username 
. COMMAND ect cs stENGEAS EOL 6 
THEN RETURNS TRUE 
RETURN sk peetteven ste 
gg" 04 00000 -ENTRY MAILSCMD SET NAME. Save R2 
52 00000000' 9E 8006 MOVAB COMMAND _BESC? R2 
DD 000 PUSHL R2 
000000006 9F 00008 PUSHAB MAILS$SD_SETN1 
000000006 00 Og 43 0011 CALLS #2, Cr iSeer VALUE 
62 85 00018 TSTwW COMMAND _DEST 
04 i. OO1A BNEQ 
50 01 pO O001C MOVL #1, RO 
04 9001F RET 
52 DD 00020 1% PUSHL R2 
FFIE CF 01 FB 000 ¢ CALLS #1, SET_NAME 
04 000 RET 


; Routine Size: 40 bytes, Routine Base: SCODE$S + 0437 


-0-742 
DISKSVMSMASTER: (MAIL .SRCISET.832;1 


Poor off 


<z | 


eee 


YAS SESSSESESESS 
SSSEUT ORNS SESS 


; Routine Size: 


VAX/VMS MAIL UTILITY SET COMMAND 


19 bytes, 


1 

1 

1 

1 

1 

1 

1 

Bett}: 

064 DESC sco); 
0644 RETU URN’ SET DEscCON: 


14-Sep-1984 


+ tee ROUTINE MAILSCMD_CLEAR_NAME = 
} FUNCTIONAL DESCRIPTION: 
Process the SET NOPERSONAL_NAME command (clear the personal name) 


BEGIN 
LOCAL 


DESC : dazitenecetys 


0000 00000 

5E 04 C2 4 

7E 04 8008 

04 AE 6E 9E 00007 
5E DD 00008 

FFOB CF 01 FB 00000 
04 00012 


Routine Base: S$CODE$S + 045F 


H 10 
16-Sep-1984 


a 12:83:93 


'Point to valid address 


VAX=11 
DISKSVM 


DESC 
DESC, DESC+4 
#1, 


SET_NAME 


BLi 
SMA 


s-32 V4.0-742 
TER: CMAIL.SRCISET.832;1 


MAILSCMD_CLEAR_NAME, Save nothing 
#4, SP 


rane Bt 


10 
MAILSSET VAX/VMS MAIL UTILITY SET COMMAND 18-Sep-1984 3:29:96 VAX-11 Bliss-32_V4.0-742 
v04= 14-Sep-1984 12:42: DISKSVMSMASTER: CMAIL.SRCISET.B32;1 


; 13 6s GLOBAL ROUTINE MAILSCMD_SET_AUTO = 

: 15 G48 i FUNCTIONAL DESCRIPTION: 

: " 6 : Do the SET AUTO_PURGE command 

: 13 6 ; BEGIN 

: 521 654 2 LOCAL 

; é 0655 DESC : VECTORC2,LONG); 

: 3 4 P 33 IF LERR(MAILSGETLK SYSMAI_REC(MAILS$Q_USERNAME ,DESC);, 
: 526 59 2 CHSMOVE(.DESCCOJ,.DESCL1),.MAILSL_USRSYSBUF); 

: 527 660 2 MAILSL_USRSYSBUFCVMD V_NOAUTOPURGE] = 0; 

; 256 pee) ¢ ee TURN MAILSUPDATE_SYSMAI_REC(.MAILSL_USRSYSBUF ) 


007¢ 00000 .ENTRY MAILSCMD_SET_AUTO, Save R2,R3,R4,R5,R6 
SE 08 C2 90002 SUBL2 #8, SP 
SE DD 9000 PUSHL § 
000000006 06 9F 00007 PUSHAB MAIL$Q_USERNAME 
000000006 00 02 FB S200 CALLS #2, MATL$GETLK_SYSMAI_REC 
04 50 8 00014 BLBS § STATUS, 1$ 
50 01 00 00017 MOVL #1, RO 
04 OOO1A RET 
56 000000006 00 DO 0001B 1$ MOVL. MAILSL_USRSYSBUF, R6 
66 04 BE 6E 28 0002 MOVC3 DESC, SDESC+4, (RO) 
1F AG 04 8A 000 BICB2 #4, $1(R6) 
56 DD 00028 PUSHL 6 
000000006 00 01 FB 900 D CALLS #1, MAILSUPDATE_SYSMAI_REC 


; Routine Size: 53 bytes, Routine Base: $CODE$ + 0472 


Page 4$} 


Bete Se Be Se Be Be Se Se Se Be Be Be Be 


— 
' 


| 
| 


0646 
0658 


0659 


0660 
0661 


0662 


10 
+ be T VAX/VMS MAIL UTILITY SET COMMAND 1b-Se 
v04- 14-Se 


-1984 01:20: VAX=11 Bliss-32 V4.0-742 
B=1984 12:49:89 DISKSVMSMASTERSCMAIL. SRCISET.632: 1 

; 531 663 1 GLOBAL ROUTINE MAILSCMD_SET_NOAUTO = 

; § 665 | | FUNCTIONAL DESCRIPTION: 

; 535 ee Vi Do the SET AUTO_PURGE command 

; oss BEGIN 

: 8 670 ¢ LOCAL 

: 339 671 DESC : VECTORC2,LONG); 

; $41 P0678 5 IF_ERR(MAILSGETLK_SYSMAL_REC(MAILSQ_USERNAME DESC): 

: 34g 674 ETURN TROE) ; 

i 343 679 CHSMOVE (.DESCCOJ,.DESCL1], .MAILSL_USRSYSBUF) ; 

: 345 O67? MAILSL_USRSYSBUF CVMD_V_NOAUTOPURGE] = 1; 

; $47 0679 2 RETURN MAILSUPDATE_SYSMAI_REC(.MAILSL_USRSYSBUF ) 

; 548 0680 1 END; 


007¢ 00000 .ENTRY MAILSCMD_SET_NOAUTO, Save R2,R3,R4,R5.R6 
5E 08 C2 9000¢ SUBL2 #8, SP 
3 DD 0000 PUSHL § 
000000006 06 9F 00007 PUSHAB MAIL$Q_USERNAME 
000000006 00 o¢ FB 0000D CALLS #2, MATLS$GETLK_SYSMAI_REC 
04 50 €E 90014 BLBS STATUS, 1$ 
50 01 dO 00017 MOVL #1, RO 
04 OOO1A RET 
56 000000006 00 dO 9001 1$: MOVL. MAILSL_USRSYSBUF, R6 
66 04 BE 6E 38 00 MOVC3 DESC, SDESC+4, (R6) 
1F Ab 04 88 000 BISB2 #4, $1(R6) 
56 DD 00028 PUSHL 6 
000000006 00 01 FB 00020 CALLS #1, MAILSUPDATE_SYSMAI_REC 
04 00034 RET 


; Routine Size: 53 bytes, Routine Base: S$CODE$ + 04A7 


P 5. 
29° 423 


0663 
0674 


0675 


0677 
0679 


0680 


_ OO Tr.rnmnsmsmmmmss:ssssss:-:ss1-7-s7-:----:7-:__-1:-//n/--/esc/-/--lse 


V! 


Se — - - -~--y 


Kk 10 
16-Sep-1984 01:20: VAX=11 Bliss-32 V4.0-742 p 6 
ereen TBs P3:23:98 | WxdimGhaStenccuaic sneaser.e32:1 2% 18 


VAX/VMS MAIL UTILITY SET COMMAND 


; 9 6 1 } GLOBAL ROUTINE MAILSCMD_SET_WASTE = 
i 33 6 § 1 | FUNCTIONAL DESCRIPTION: : 
: 34 6 5 Process the SET WASTEBASKET_FOLDER command : 
; 26 6 5 BEGIN ; 
3 688 3 
3 28 689 LOCAL 3 
; 55 690 RECDESC : VECTORE? LONG) : 
: 360 91 RECBUF : SBBLOCKCSBYTEOFFSET(MFR_T_DATA) +MFR_S_FILEKEY+1]; ; 
; See 38 BIND : 
; 56 694 RECORD_TYPE = RECBUFCMFR_O DATIM] : VECTORC,LONG), ; 
: 364 0695 WASTENAME = RECBUFCMFR_T-DATAJ : VECTORC BYTE); : 
; 566 $699 5 CLISGET. VALUE (SD. WASTENANE COMMAND _DESC); ; 
: 567 069 IF COMMAND D_DESCTDSC$W_LENGTH] EQL~O ; 
; 568 069 THEN RETURN TRUE; : 
; 569 0700 3 
: 570 P 0701 IF -ERR(MAILSOPEN IFO: ; 
; 571 070 TRUE); : 
3 or¢ 070 3 
; 57 0704 2 IF NOT .MAILSGL_FLAGSCMAIF_V_ISAM) ; 
3 are 8709 THEN RETURN” SIGNAL (MAIC$_NOTISAM) ; : 
: 576 O709 IF CHSEQL(.COMMAND_DESCCDSCS$W_LENGTH], . COMMAND _DESCCDSC$A_POINTER] : 
: 577 0708 .MAILS$SD MALL LODSC$W_LENGTH], .MAILSSD MAILTDSCSA POINTER) ; 
; 578 0709 OR CHSEQL(. COMMAND DESCCOSC$W_LENGTH], .COMMAND DESCCDSC$A_POINTER), F 
; 579 0710 L$SD_NEWMA WMAILEDSCSu_ LENGTH], AMATLSSD_NEUMATL CDSCSA_ POINTER?) : 
; 380 ori THEN RETURN sTGHAT CRAIGS LLFOLNAM>1,COMMAND_DESC); : 
; 8¢ orig CHSFILL(O VTEOFFSET (MER T_DATA),RECBUF); : 
; 58 0714 RECORD FT TYPE MFR_C_WASTENAME : F 
; 584 0715 2 WASTE COMMAND _DESCCDSC$W_LENGTH); F 
: 585 0716 Sooee (0) COESce DS su LE ENGTHIS COMMAND. DESCLDSC$A_POINTER), : 
: 386 0717 QASTENAMEC13); : 
: 588 0719 2 RECD DESCEO} = = SBYTEOFFSET(MFR_ T_DATA) + .COMMAND_DESCCDSC$W_LENGTH] + 1; : 
> 589 0720 2 RECDESCLI ; 
; 590 0721 IF RAILSUPDATE. INFO! REC (MAIL$T_RD_RAB,RECDESC) 3 
; 291 07 é THEN BEGIN : 
; 598 4 3 Copy anything in old wastebasket folder to new wastebasket folder ; 
: 595 07 6 MAILSMOVE_WASTEBASKET (CCMMAND_DESC) F 
: 596 07 STRSCOPY_DX(MAIL$Q_WASTEDESC, COMMAND _DESC); 

; 597 728 END; 

: 598 07 9 2 RETURN TRUE 

; 599 730 3 | 


01FC 00000 - ENTRY RAILSCRO SET WASTE. Save R2,R3,R4,R5,R6,R7,-; 0681 


nats 


000000006 00 


000000006 00 


30 


; Routine Size: 


00 


00 


00 


31 AE 


207 bytes, 


$ 200000006 99 9¢ 
fa A as E 
5 D 
FB7A E F 
000000006 00 es F 
w08s 4 998 
000000006 09 8 EB 88 
0A 000000006 0 €8 
apoaneage 90 EB God 
68 1 fe $3 
55 67 ge 00 
54 04 A7 00 000 
50 000000006 99 DO 000 
os $3 20 000 
13° 13 000 
50 00000000G 00 »b0 000 
és 53 20 000 
HA 12 000 
5 DD 000 
01 dD 000 
007E80E2 8F DD 000 
68 03 FB 000 
04 000 
oe 00 2¢ 900 
6E O¢ 0 000 
56 6 C 000 
30 AE 56 90 000 
50 04 A7 00 000 
60 56 28 000 
58 AE 31 A6 E B06 
5C AE 6— 9E 000 
58 AE 9F 000 
00000000G 00 9F 000 
00000000G 00 9s FB 808 
1 E9 000 
57 DD 
00000000G 00 9} 4 05 
00000000G 00 9F 000 
000000006 98 B§ Fe 86 
yi 000 


Routine Base: 


VAX/VMS MAIL UTILITY SET COMMAND 


SCODES + 04DC 


+ —ewy 


MD EMOVVNOOWOO arm > ws 


QOoonrwwwwwr>r>woO 


b-50 Sep-1984 
-Sep-1984 


6$: 


MOVAB 
MOVAB 


a 12:88:58 


VAX=-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: 


Thay By! 


COMMAND. Desc, 87 


SD_WASTENAM 
#2 CLI Bet VALUE 
OMMAND_DEST 


$ 
ay stars, 8 IF 
GL_FLAGS, 3$ 
6b 
#1, LIBSSIGNAL 
COMMAND_DESC, R5 
COMMAND — DESC+4, R4 


MAILS$SD-MAIL+4, RO 
R5, (R4), #0, MAILSSD MAIL, (RO) 


4$ 
MAILSSD NEWMAIL+4, RO 
R5, (R4), #0, MAILSSD -NEWMAIL, (RO) 
5$ 
R? 
Hatt 4 
#3, LIBSSIGNAL 
#0, (SP), #0, #48, RECBUF 
#2, RECORD TYPE 

MMAND_DESC 

R6, WA TENARE,* 
COMMAND DESC +4 

ROY UASTENARE* 


R6 
Metre. RECDESC 
RECDESC+4 


#3. RATLSOPDATE. INFO_REC 


#1, MAILSMOVE_WASTEBASKET 
MAIL$Q_WASTEDESC 

#2, STRSCOPY_DX 

#1. RO 


CMAIL.SRCISET.832;1 


Page 485 


Pe Se Se Se Se Se Se Se Be Se Be Be Be Se Se Se Se Be Se Be Be Bs Se Be Be Se Se Se Be Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


oOo Oo 
™“N nN OU™N 
oO oo oO 
N ms NM 


VAX/VMS MAIL UTILITY SET COMMAND 


Ooooooooooo°oo 
SSN NNN 


SHES ENN 


WN 0 OONOUS wn 


4 01:20: VAX-11 Bliss-32 V4.0-742 Page 28 
Be 93:29:98 DISK$VMSMASTER: CMAIL.SRCJSET.B32;1 ’ (16) 
GLOBAL ROUTINE MAILSCMD_SET_FILE = 
FUNCTIONAL DESCRIPTION: 


process the SET FILE command 


= 
BEGIN 
CLISGET_VALUE (SD_F ILE, COMMAND_DESC); 


MAILSOPEN FILE (COMMAND_DESC); 
pc tunn TROE 


0004 00000 -ENTRY MAILSCMD_SET_FILE, Save R2 ; 0731 
52 00000000° 98 9E 00002 MOVAB COMMAND_BDESC? R2 : 
52 00 bpoog PUSHL R2 ; 0739 
FASA CF 9F 00008 PUSHAB SD_FILE : 
000000006 00 9 FB Bets CALLS #2, CLISGET_VALUE : 
52 DD 00016 PUSHL ; 0741 
000000006 00 01 Fe 00018 CALLS #1, MAILSOPEN_FILE : 
50 01 OD Bott MOVL #1, RO : 074 
04 00022 RET 3 074 


35 bytes, Routine Base: S$CODE$S + O5AB 


; Routine Size: 


VAX/VMS MAIL UTILITY SET COMMAND 


i 


‘oc RENAME SUCCESS (OLD_SPEC,NEW_SPEC,LOG_FLAG) = 
FUNCTIONAL DESCRIPTION: 


— SS SS SY 


<_— 
now 
2 
Dy 
pa 
= 
> 
rv 
° 4 
o=0 
zs 
On 
pay 
wm 
m 
=a 
@ 
Ww 
Xn 
— 


This routine is called by LIBSRENAME_FILE on a successful RENAME 


PAA 


IF CHSEQLC. OLD_SPECCD co LE SC$A_POINTER] 


-MATL$Q_RD _DESCCDSC$A_POINTER]) 


IL 
THEN STRSCOPY "OXUMATLSO. 


“THER. S]GNAL(MAILS_RENAMED,2, .OLD_SPEC, .NEW_SPEC); 


; Routine Size: 


FAWN" O ODONOUS WN —OVOnou 
SOOCCOCCOOOCOOOOCOOOOOOOOOO 
SN NSS 
PAPA MII BP 


WR O ODN UEFA "OD OONOUS 


PARA AAAAAAAAAOAO 


Www 


003C 00000 RENAME SUCCESS: 
WORD 


[=] 
o 


SME MMLSOOMUONOOLUO 
— 
bad 


OOWOwuly POUPOOOY YS 
oonmoovomMmnsoo— wo7o 
fSowoocVvwowcoon FCO 
OOCooooooooooooo 
CoOOoOoOoooooooooocoao 
OOooooooocooooooco 
FWA 2 SS OO 
MN MO POMS POO O 

™~m 

bad 


SCODES + OSCE 


3,R4,R5 
“DESC, RS 


RO 
’ 10, MAIL$Q_RD_DESC, (RO) 


—- AzBomzw 


zza 
Vin A 
= 
t 
wn 
v 
m 
o 


#2, srnecony DX 
LOG_FLAG, 2$7 
NEW_SPEC 


#8262307 
#4, LIBSSIGNAL 
#1, RO 


Bee Se Se Se Se Se Ge Ge Ge Se Be Ge Se Se Se Se Be 


02 00 14 
001F 001F 

00018292 = BF oc 
50 

10 

oC 

04 

10 

oc 

08 

007E123A 


000000006 00 


VOWOOFOWOraw cow 
DIMM OODOOMO LO 
oonooroT7o-co 0700-9 
fewmoo0°0°0-9000 £§on— 


; Routine Size: 65 bytes, Routine Base: SCODE$ + 0610 


1B-d4 5-19 4 
14-Sep-1984 


a 12:88:58 


‘Error searching for old_file 


.OLD_SPEC 
gf05, TRMSSTVLOJ); 


Error 


new fi le 
STVCOJ); 


'Force LIBSRENAME_FILE to terminate 


0000 00000 RENAME_ERROR: 
WORD 

00008 
1$: 


0000 


OM NH VODA SMD S NWO 


PUAN PoNonon ] 2 2 22 


CoOCOOCCoOSCoOoCOCOOooCoOoooO 
nw ee fo fofofoleielololelolesq) 


OOCOCoOOOOCOoOoCoooooo 


2$: 


3$: 


4$: 


5$: 


MAILSSET VAX/VMS MAIL UTILITY SET COMMAND 

tives 

; 636 764 «1 

; g i ee i i FUNCTIONAL DESCRIPTION: 

; o78 a787 i : E j Lled by LIBSRENAME_FILE 
; rror routine calle LE on an error 
: 641 Bes 1 ice E . 

; 646 0770 BEGIN 

; ete $72 RMSSTS : REF VECTOR{,LONGJ, 

; 645 o77e RMSSTV : REF VECTOR LONG): 

: ers gree CASE .ERROR_SOURCE FROM 0 TO 2 

; 648 0776 OF SET - 

; 649 0777 

; 650 0778 (0) : 

; 651 0779 IF ge te eS 1 ant RMS$_FNF 

3 $26 0780 THEN RETU TRU 

; 65 0781 ELSE CF CNAL MALTS ae 1 

; 654 078¢ MSST 

; 655 078 § 

; 656 0784 t\,22 % 

s 657 0785 2 SIGNAL (MAILS_ SEARCHFAIL,1,.NEW_ SPEC, RASSTS 
; 658 0786 2 $; 

> 659 0787 2 

: 660 0788 2 RETURN FALSE 

; 661 0789 1 END; 


Save nothin 


4$ 

@RMSSTS, #98962 
3$ 

#i, RO 

@RMSSTV 

@RMSSTS 

LD_SPEC 
@RMSSTV 


@RMSSTS 
NEW_SPEC 


A iar gf) 
+o LIBSSIGNAL 


ee 


VAX=11 Bliss=32 V4.0-742 
DISKSVMSMASTER: CMAIL.SRCISET.B32;1 


=— RENAME ERROR (OLD_SPEC,NEW_SPEC,RMSSTS,RMSSTV,ERROR_SOURCE,LOG_FLAG) = 


Sete Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Be Se Be 
Tare re rere rererelLere rece re re sere re rece Tee TES Pe Se Be Oe Be wee Oe Oe Oe Oe Be Oe Se Se Se Oe Se Be Be Se See Se Be Se Se Oe SHES SH Se es we 


—— Pacer 


11 
MAILSSET VAX/VMS MAIL UTILITY SET COMMAND 1§- Sep-1984 VAX-11 Bliss-32 V4.0-742 Page 31 m 
re ft 14- ~8ep-1984 9}: 29: 98 DISKSVMSMASTER: CMAIL.SRCIJSET.832;1 . aay 4 
: 663 0730 1 ROUTINE SET_NEW_DIR (SUB_DESC, FULL_DESC, LOG_FLAG) = . 
; 664 791 1 fe ° 
; 665 8588 1 ! FUNCTIONAL DESCRIPTION: c 
; 666 795 1! ° 
: 667 0794 1! Rename MAIL.MAI into the new directory. Then update ° 
; 668 8732 1! VMSMAIL.DAT to have the new subdirectory spec. Then rename ° 
; 669 £38 1! the rest of the .MAI files ° 
; 670 0797 1! ‘ 
: 671 0798 1! Inputs: : 
; ore 0799 1! 
; 67 0800 1! SUB_DESC = address of descriptor of subdir (C.MAIL]) 
> 674 Bae) 1; FULC DESC = address of descriptor of full subdir name (d:Cuser.mail)) 
: 675 ; 1! LOG_FLAG = true to /log, false otherwise 
: 676 0803 1! 
s 677 0804 1 !-- 
; 678 0805 BEGIN 
; 679 0806 
; 680 0807 P 
; 681 0808 SUB_DESC : REF $BBLOCK, 
; re] 0809 FULC_DESC : REF $8BLOCK; 
; 68 0810 
> 684 0811 LOCAL 
; 685 pels DESC : VECTORC2,LONG); 
: 686 081 ! : 
: yet gate § Rename MAIL.MAI;* to the new directory 
; 689 0816 2 STRSCONCAT (DYN DESC ,MAIL$Q_MAIL_MAI ,SDESCRIPTOR(';*#')); 
; 690 P 0817 2 IF_ERR(LIBSRENAME “FILE (DYN “DESC>.FULL L_DESC, MAIL$Q_ USERDEF ,0,0, 
; 691 P 0818 2 RENAME _ SUCCESS, RENAME ERROR,O,.LOG_FLAG);, 
; 69 0819 RETURN TRUE); 
; 469 0820 
3; 694 0821 ! 
; 695 Base ! Update record in VMSMAIL. If an error occurs, rename MAIL.MAI;* to 
5 698 th 2 ; the old directory. 
; 698 P 0825 if _ERR(MAILSGETLK_SYSMAI_REC(MAIL$Q cre sDESC); | 
: 699 P 0826 LIBSRENAME_FILE(BYN_DESC,MAIL$Q_USERDEF,.FULL DESC (0 0, 
: £0 2 tH ars RENAME sSoctEsS. ORLAARE ERROR, 0; 1); talways log 
: 702 0829 CHSMOVE (. SESCLO) Reece) MAILSL. USRSYSBUF) | 
> 703 0830 2 CHSMOVE(.SUB DESCCDSC$W LENGTHS SUB _DESCCDSESA_ POINTER] 
: 706 0831 AILS rUSRSYSBUF VMD_T NAAJ+. MAILSL _OSRSYSBUF CvMD_B_FWDLNGJ+ 
: 705 O86 -MAILS CSRS RSYSBuF CVMB af PNAC NG)) 
3 oS OR z MAILSL _USRSYSBUF VMD_B_DIRLNG] = NSUB “DESCLDSCSW. LENGTH); 
; 708 P Bae IF ERR(MAILSUPDATE_SYSMAI og TE ILSL_USRSYSBUF); 
> 709 P 0836 LIBSRENAME —FILE(DYN_DESC,MAILSQ_USERDEF,.FULL C,0,0, 
: 710 P 0837 RENAME _SUCCESS, RENAME TERROR SO vag ne ee log 
s ii +t RETURN TRUE); 
3 ary 839 
: 71 0840 ! 
: 44} Bae) ! : Finally rename the rest of the mail files to the new directory 
$ me Pk { IBSRENAME FILE (SDESCRIPTOR(**.MAI;*"), .FULL_DESC ,MAIL$Q_USERDEF ,0 
: ri? 0844 RENAME. SUCCESS, RENAME _ERROR,O,.LOG. Peas): 
: 719 0846 ! Set up the strings containing the mail file directory spec and the 


D 11 
MAILSSET VAX/VMS MAIL UTILITY SET COMMAND 16-Sep-1984 01:20: VAX-11 Bliss-32 V4.0-742 P 2 
Y04t005 18-80-1382 95:25:98 DISKSVMSMASTER: CMAIL. SRCJSET.B32;1 age 438 | 
ae » 6 rh } default mail file spec. 
eB. g 49 2 STRSCOPY_DX(MAIL$Q_USERDEF,.FULL_DESC); 
3 7 0850 STRSCONCAT (MAILS$SQ_MAILDEF,.FULL_BESC ,MAILSQ_MAIL_MAI); 
: 724 0851 RETURN TRUE 
: 725 0852 1 END; 
| 
2A 3B 00651 P.AAW: .ASCII \3*\ : 
000000 inet P. AAV “Bete ) | 
tts 4 che ty PORT : | 
2A 3B 49 41 4D 2€ 2A 0065C P.AAY: ASCII \*.MAI;*\ ; 
0066 BLKB 1 | 
00000007 00664 P.AAX: .LONG 7 3 
00000000° 00668 -ADDRESS P.AAY s 
| 


OFFC 00000 SET_NEW_DIR: 
. WORD 


Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 ; 0790 : 
5B 00000000" 00 9€ 00002 MOVAB DYN _DESC : ; 
5A 000000006 00 9€ 00009 MOVAB MAICS$Q_USERDEF, R10 ; : 
59 91 AF H 00010 MOVAB RENAME-ERROR, R9 ; : 
5E 08 C2 00014 L2 #8, SP : ; 

CE AF 9F 00017 PUSHAB P.AAV : 0816 | ; 

FO7TE CF 9F OOOIA PUSHAB MAIL$Q_MAIL_MAI F : 

5B DD OOO1E PUSHL : : 

000000006 00 03 FB 00020 CALLS #3, STRSCONCAT : | ; 
0c AC DD 90087 PUSHL LOG FLAG > 0819 ; 

7E D4 O002A CLRL. = (SP) : ; 

59 DD 0002c PUSHL  R9 : : 

BE A9 9F 0002E PUSHAB RENAME_SUCCESS : : 

7E 7¢ 00031 CLRQ ss = (SP) : : 

5A DD 00033 PUSHL R10 : ; 

58 08 AC 00 90035 MOVL FULL_DESC, R8 F : 

58 DD 0039 PUSHL RB : : 

5B DD 00038 PUSHL R11 : F 

000000006 00 09 FB 0003p CALLS #9, LIBSRENAME_FILE : ; 
5C 0 € B0044 BLBC STATUS, 2$ : : 

SE DD 00047 PUSHL : 0828 : 

000000006 00 9F 00049 PUSHAB MAIL$Q_USERNAME : | ; 

000000006 99 98 FB O4F CALLS #2, MATLS$GETLK_SYSMAI_REC : : 
E9 00056 BLBC STATUS, : | : 

56 000000006 00 bo 0059 MOVL.  MAILSL_USRSYSBUF, R6 : 0829 | : 

66 04 bs 6E 28 00060 MOVC3 DESC, SDESC+4, (R6) ; : 
5 04 AC pO 0065 MOVL suB SESC > 0830 : 

50 43 Ab 9A 00069 MOVZBL 67(R6), RO > 0831 ; 

50 56 £0 0060 ADDL : : 

51 42 A6 9A 00070 MOVZBL 66(R6), R1 > 0832 : 

44 A140 04 87 6 e 0074 MOV (R7), @4(R7), 68(R1)CROJ > 0831 : 
41 Ab 67 90 0078 MOVB (R7). 65(R6) : 08 3 3 

56 DD ort PUSHL : 08 : 

000000006 00 gi FB 0081 CALLS #1, MAILSUPDATE_SYSMAI_REC : : 
1A 0 €8 00088 BLBS STATUS, 3$ : : 

01 OD 00088 1$: PUSHL #1 ; : 


malas 


000000006 


000000006 


000000006 
000000006 
Routine 


; Routine Size: 226 bytes, 
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1 
1 
7E 04 00080 
gf D if 
BE A9 9F | 
43 C 94 
DD 4 
A 0d 0009 
B ODD 0009A 
00 9 a: 1 
9 11 A 
OC AC DD QOOA 
F5 BD OOOAA 
BE a9 OF Oooae 
7E 7C QOOAF 
on 8F ge 0081 
FF SF CF F 00085 
00 9 FB 00089 
8 DD 000C0 
SA DD 5 
00 02 FB 000C4 
F8CD «6CCF OCO9F:s«OOOCB 
58 DD OOOCF 
00000000G 00 9F 000D1 
00 03 FB 00007 
50 01 DO OOODE 
04 000E1 
Base: SCODES + 066C 


$-32 V4.0-742 


VAX-11 Blis 
TER: CMAIL. SRCISET.B32;1 


DISKSVMSMAS 
= (SP) 

RY 

RENAME SUCCESS 
-(SP) 

R 

R10 

R11 

#9, LIBSRENAME_FILE 


LOG_FLAG 
(SP) 


R9 
RENAME _ SUCCESS 
WM<RE, ,R10> 
#9, LIBSRENAME_FILE 
tio 

STRSCOPY_DX 
halts. MAIL_MAI 


MAIL$Q_MAILDEF 
aye § STRSCONC AT 


Be Se Se Se Se Be Se Ge Se Se Se Ge Ge Se Se Se Se Fe Ge Fe Fe Fe Se Se Be Se 


: 727 53 
: 728 54 
: 729 55 
; (3S 2 
ia Og 
TS : bBsS 
: 734 Bate 
: 755 861 
3 Bees 
; 737 086 
; 738 8 64 
; 739 65 
; 760 086 
s 76) 086 
; 74 0868 
: 7% 0869 
3 7446 0870 
3: 745 0871 
; 746 oh 
3 747 087 
; 748 P 0874 
; 749 0875 
; 750 0876 
; 751 0877 
3 Pg 0878 
3; 0879 
3; 754 P 0880 
; 755 0881 
; 756 088 
s 737 088 
: 758 0884 
; 759 0885 
: 760 0886 
; 761 0887 
3 roe 0888 
; 76 0889 
: 764 0890 
; 765 891 
; 766 89 
: 767 089 
; 768 Baee 
3 768 0895 
s 771 $98 
: 77 898 
: @7 899 
s 776 900 
; 775 901 
; 77 O06 
: 77 

: OS 308 
; P 

$ 781 309 
Be 4 P 0908 
; 78 0909 


VAX/VMS MAIL UTILITY SET COMMAND 


ROROPORU WIR LR PW BW BRO nono nononononononononononononononononononononononunony @ 


ee ROUTINE MAILSCMD_SET_DIR = 
FUNCTIONAL DESCRIPTION: 


i The SET MAIL_DIRECTORY ra specifies where MAIL should put 
all its .MAl~“and .MSG files 


oa 
BEGIN 


BIND 
SUB_STRING = DYN_DESCCDSCSA_POINTER] : REF VECTORC,BYTE); 


LOCAL 
+ Aa : VECTORCNAMSC_MAXRSS BYTE], 


STATUS 


best ¢ LACECTORC2. LONG] 
END_CHAR : REF VECTOR(,BYTE?: 


HF LERRCCL [9GET VALUE (SD_FILE COMMAND _DESC); , 
RETURN TRUE); 
IF .COMMAND _DESCCDSCS$W_LENGTH) EQL 0 
THEN RETURN TRUE; 


IF ERR( CHECK Ad alla -DESC,NAMSC_MAXRSS);, 
RETURN TRUE); 


LOG_FLAG = CLISPRESENT(SD_LOG); 
Syntax check that the parameter is indeed a sub-directory name 


srescopy -DX(DYN, DESC. OMMAND_DES 
EN CHAR™= SUB _5 COMMAND Destcoscsu LENGTH= aii 
F ROT asritttinee ns: eRe COMMAND B COSC $y TH, 
.C pRAND ESCEDSCEA POL POINT RJ,%C'=")) 
OR NOT CHSFAIL(CHSFIND_SUB(. COMMAND One SCCDSCS WACENG 
. COMMAND _DESCCDSC$A_POINTER),2, UpLET«’..*))) 
THEN RETURN fb eats NLLSUBDIRG? ,COMMAND_DESC): 
IF CC, SUB_ STRING QL XC'C") 
AND ([END NEQ %C'J")) 
OR ((: SUB STRING sto} ga aC'<") 
AND (7END 0} NEQ %C*>")) 
THEN RETURN STGNAL (RAILS NOTSUBDIR, 1, COMMAND. DESC) ; 
IF (. SUB _ STRINGLOJ offs 2 Zc'C") 
THE UB SIRI NG HCN"; 
IF END CHAR 0} Far Bc") 
HEN" END CHARLO C'>'; 
IF (.SUB_STRINGLO NEO % ace") ,OR (.SUB_STRINGL1] NEQ %C*.") 
OR (TEND CHARLO) NEQ %C*>') 


THEN RETORN SIGNAL (MAILS -NOTSUBDIR,1,COMMAND_DESC); 


IF ERR(MAILSGET_USER(MAIL$Q_USERNAME);, 
RETURN TRUE); 


F 11 
16-Sep-1984 01:20: VAX-11 Bliss 
1o-8 08-1 ope 03:29:98 Di eKSvme SMAST 


a ~—4 


=32 V4.0-742 Page 34. 
ER: CMAIL.SRCISET.832;1 (20) | 


TolSS 


7 


3s 


Pee Se Ge Oe Oe Oe Oe Oe Oe OHH Oe Oe Oe Oe Oe Oe OHSS Oe Oe Oe Oe ee OH OH OH Os Oe OH Oe Oe Oe Oe Oe ee BH Oe 
Co OD: 
oo 
wr 


2 09 Cd Cp 09 C9 OD CD CD CD CD CD CD CD 
TIP 8 et ot ot 
NM—OODONOUSWN oO 


Aw 


First create the eereres Then, rename MAIL.MAI into that directory. 
If that fails, 9 ve up. f that succeeds, then update VMSMAIL.DAT to 
contain the subdirectory. After that, rename the rest of the *.mai 


11 
VAX/VMS MAIL UTILITY SET COMMAND 18. -Sep- 1384 9} 49: 96 VAX=11 Bliss-32 V4.0-742 
14-Sep-1 2: DISKSVMSMASTER: CMAIL.SRCJSET.B32;1 

319 

91 DESC = ,(MAILST UAF BUFF CUAFST_DEFDEV))<CS_COUNT>; 

318 beset = (MA Tei BUFFCUAFST.DEFDEVI)<CS STRING>: 

1 STR GY Dx CDY 1h bese, 2° DESC); 

914 DESC } = . (MAICST_UAF BUFFCUAFST_DEFDIRJ)<CS_COUNT>; 

915 DESCL1) = (MAILST_OAF_BUFFCUAFST_BEFDIRJ)<CS_STRING>; 

318 STRSAPPEND(DYN_DESC_27DESC); 

91 PTR = CHSMOVE(.DYN_DESC_2CDSC$W_LENGTH)=1 DYN DSC$A TERI pets 
319 PTR = CHSMOVE(, DYN ~DESCTDSCau LENGTHJ-1,.0YN_DES Ce Rostsacp OINTE , «PTR 

921 DESCEO) = .PTR = TMPBUF; 

9 ¢ DESCL1) = TMPBU 

9 END_CHAR = .DYN “BESC 2tpscsu. LENGTH] + .DYN_DESC_2CDSCSA_POINTERJ-1; 
93 4 IF TEND CHARLO] -EQL 2C¢ 

925 THEN BEGIN 

08 § END_CHAR = y De sttg) + .DESCC1) = 1; 

\) END_CHARLO) = %C')'; 

0928 END; 
0929 
0930 

0931 

09 ¢ 

09 

4 


: 
k 


files to the new directory. By doing it this way, the time that the 
mail.mai file and vmsmail.dat are out of synch is minimized. Note 
that errors on the rename of the rest of the files are not dealt with 
in a meaningful way. 


iF NOT (STATUS = LIBSCREATE DIR(DESC MAILSL MYUIC -3R EF (-1) ,2REF (DIR_PRO))) 
THEN RETURN SIGNAL(MAILS DIRNOTCRE,1,DESC,.STATUS) 
ELSE SIGNAL (CIF STATS Fa S38. CR EEA feb 
ELSE MAILS"EXISTS),1,DESC); 


IF LERR(SET_NEW_DIR(COMMAND_DESC,DESC,.LOG_FLAG);, 
RETURN .STATUS); 


— TRUE 


0074E -BLKB 2 
00 00 2€ 2€ 00750 P.AAZ: ASCII \..\<0><0> 
SUB_STRING= DYN_DESC+4 
OFFC 00000 ENTRY Resnscmtosey Save R2,R3,.R4,R5,R6.R7.- 
58 F8BA CF 9E 0000 MOVAB ati 
3A 00000000' 00 9€ 99 MOVAB ¢0 te “DESC, R10 
£ FEFO CE 9€ 00 MOVAB -272(SPJ, SP 
A OD 1 PUSHL R10 
DD 0001 PUSHL R11 
000000006 90 03 FB 017 CALLS #2 CLISGET_VALUE 
4 E9 OOO1E BLBC STATUS, 1 


| 
| 


Page 2d) 


3 0853 | 


0875. 


<z 


) 


H 11 | 
MAILSSET VAX/VMS MAIL UTILITY SET COMMAND 16-Sep-1984 01:20: VAX=11 BLiss-32 V4.0-742 P | 
V04 1e8Sb=13Be 2:25:55 DI SKSVMEMASTERSEMAIL.sReISET.832;1 **9° 266, 
| 
6A 1 TSTW COMMAND DESC : 0877) 
3 BNEQ : 
01 1$: BRW 198 : | 
7E FF OBF OO”A 2$: MOVZBL #255, =(SP) + 0881 | 
A DD 000eC PUSHL : 
F932. 3 FB 0 : CALLS #2, CHECK STRING : 
EF ‘ BLBC STATUS, 18 : 
0c AB OOF 0 PUSHAB $D_LOG + 0883 | 
000000006 99 1 F CALLS #17 CLISPRESENT : 
0D Be MOVL RO, LOG_FLAG : 
A DD 0004 PUSHL R10 ; 0887 | 
08 AA OF 04 PUSHAB DYN_DESC : 
000000006 00 02 FB 0004 CALLS #2, STRSCOPY_Dx : 
3g 6A 3C 0004F MOVZWL COMMAND DESC> R2 + 0888 
56 5 0c AA Cl 005¢ ADDL3  SUB_STRING, R2, R6 : 
56 07 0005 DECL END CHAR : 
53 04 AA p0 0059 MOVL COMMAND DESC+4, R3 > 0890 
63 52 D 3A 0005D LOCC #45, R27 (R3) : 0889 | 
2 12 00061 BNEQ 3$ : 
1 D4 90065 CLRL sR F 
51 DS 00065 3$ TSTL = R11 > 0890 
11 12 00067 BNEG S$ : 
63 52 073c = CB 0¢ 35 00069 MATCHC #2, P.AAZ, R2, (R3) > 0892 
03 13 00070 BEQL 6s 4$ : 
53 02 ny) 00072 MOVL a, R3 : 
53 0 ce 00075 4$ SUBL2 #2, R3 : 
g¢ 13 00078 BEQL 6$ : 
A DD OO007A 5$ PUSHL R10 + 0893 
01 DD 0007C¢ PUSHL #1 : | 
OO7E80DA 8F DD OO07E PUSHL #8290522 : 
4A 11 00084 BRB 12$ : 
50 0c AA DO 00086 6$ MOVL § SUB_STRING, RO > 0894 
58 OF 60 91 OO08A CM (ROY, #91 : 
06 12 OO8E BNEQ 7$ : 
SD oF 6 91 000 CMPB = (END_CHAR), #93 : 0895 
0 12 00094 BNEQ 11$ : 
3c 60 91 0009 7$ CMPBs« (RO), #60 : 0896 
05 12 00099 BNEQ 8$ ; 
3E 66 91 0009B CMPB  - (END_CHAR), #62 + 0897 
26 if 0009E BNEQ 11$ : 
50 0c AA D Q00A0 8$ MOVL § SUB_STRING, RO > 0900 
58 OF 60 91 OO0A4 CMPB ss CROJ, #91 : 
0 ge 26 BOOK are a0, «RO? : 9901 
5D «BF 6 3 Soap 9$ CMPB (END _CHAR) , #93 : 0902 
9 if 9081 BNEQ 10$ : 
4 ; 90 00083 MOVB #62 (END_CHAR) + 0903 
C 6 91 0986 10$:  CMPB (ROS, #60 > 0904 
12 0008 BNEQ 118 : 
2e 01 Ad 91 00088 CMPB s«1(RO), #46 : 
05 1 BF BNEQ 11$ : 
3E 66 9 C1 CMPB (END_CHAR) , #62 : 0905 
i 4 C4 BEQL -«13$ : 
A dD C6 11$:  PUSHL R10 + 0906 
1 DD 000C PUSHL #1 : 
007E80D2 BF DD OOOCA PUSHL #8290514 : 
000000006 00 3 FB O00D0 128: CALLS #3, LIBSSIGNAL : 
| 
| 


MAILSSET 
04-000 
000000006 
08 
oC 


000000006 


08 
oc 


000000006 
10 AE 


63 
AE 


01 


08 
oc 


5D 


50 08 


04 
04 


000000006 


000000006 


00000619 


000000006 


03 


0 

off 5 

50 Sovoeogye 0 

AE 4 A A 
AE 75 AO 9E 
98 AE 9F 

1 AA 9F 

00 8 Fe 
50 000000006 3 

AE 094 «OC A 
AE 095 CO 9E 
08 AE 9F 

10 AA OF 

99 02 FB 
5 10 AA 3C 

50 FF OAT 3 
58 14 AA D 

68 50 ¢¢ 

51 08 AA c 
51 0D 

50 Oc AA 00 

AO 51 ge 

50 10 A 4 
53 50 ¢ 
AE 10 AE 9E 
56 FF A847? = 9E 
8F 66 91 
OE 12 

AE Oc AE Cl 

56 FF OA 4 3 
66 5D 68F 9 
AE FF88 =8F 58C 
04 AE 9F 

AE 01 CE 
04 Ar oF 
000000006 00 9F 

14 AE OF 

00 04 Fe 
15 50 € 

50 DD 

oc Ap oF 

DD 

007E12C2 F OD 

00 4 §B 
ge 

08 ag F 

g DD 

8F 0 01 

8 12 

007E1073 F + 

6 11 

007E1293 F 0D 

00 3 FB 

DD 
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gf 
000000006 i +4 


cow 
SOOOCGCOOCOOSOCOCOOSOSOOCOOCCOOOOO COO OOOOOSOSOOOOOCOOOOOOOOOOOOOOOOOOOOOO 


folelelolelelolelelolelelolololeleleloleloleloleleleleleoleololelolelelololelolelolololelololololololeloleloloieleoiq) 


ee ee ee ee ee ee ee ee ed eed ee ee ee ee ee el el ee ae ed ee ee el ed ee el el eld ed ed eed ed aed med OOO OOOOOOOC 


AOD & & & EWAN ADPIN SF KOO TM HH MIMMMOO? 


QOOWDWWD>S SF FF OOOO OWOSSO Oo 


-Sep-1 
oben-t 


11 


13$: 


14$: 


15$: 


16$: 


984 T2:k2:88 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CMAIL.SRCISET.832;1 


MAIL$Q_USERNAME 
#1, MATL GET_USER 
TATUS, 14 


DES 

DESC +4 

7), END_CHAR 
R), #93 


C, RO 
€HAR 
AR) 


SL_MYUIC 
LIBSCREATE_DIR 
16$ 


#8262338 

#4, LIBSSIGNAL 

DESC 

#1 

STATUS, #1561 
61747 


o 

#8262291 

#3, LIBSSIGNAL 
LOG_FLAG 


Pete Se Se Se Se Se Se Se Se Ge Ge Ge Se Se Ge Se Se Se Fe Fe Se Sse Se Se Fe Se Fe Se Fe Se Fe Fe Fe Se Fe Se Be Be Fe Se Se Fe Fe Ge Fe Fe Fe Ge Ge Se Se Se Se Be Be Se 


0939 


0940 


0945 


mas 


; Routine Size: 
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478 bytes, 


FD41 oS 


Routine Base: 


2 


SCODES + 0754 


ry 


sary US. 2 


VAX=11 BLi 
DISKSVMSMA 


SET Site DIR 
2 ® 


$-32 V4.0-742 


TER: CMAIL.SRCISET.832;1 


947 
948 


—— 
EE eee 


malas 


NOUS 


0 09 09 CD C0 C0 00 CD CD CD CD Cn: 
WN] O ODONOULS WN —OO@W 


Co 00: 
= 


847 


0 00 Oo Od 09 Od Cd 09 OD Cd C9 CD OD: 
AAA AAVVVI & & 
WR SO OOnNOULWN—OO0W 


ESSEESES 


o 
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coches 
33” 


-—— 
oom 


~ ROUTINE MAILSCMD_SET_NODIR = 
FUNCTIONAL DESCRIPTION: 


ole lo lo] 
ooo0ono 


pa19be 12:60:88 


VAX=11 BL 


iss-32 V4.0-742 
DISKSVMSMASTER: 


CMAIL.SRCISET.832;1 


49 1 
3 
: 
938 1 Cancel any SET mall DIRECTORY setting. Cause the mail directory 
954 1! to be SYSSLOGIN 
82? 1! 
9 § 1 !-- 
Bae BEGIN 
958 
959 LOCAL 
et DESC : VECTORC2,! ne}. 
96 LOGIN DESC : vee TOR LONG), 
96 tog _FCAG; 
096 
0964 ! 
Ree? If no mail directory set, then there is nothing to do 
0967 if .MAILSL USRSV SoU CVRD -B_DIRLNG] EQL 0 
a4 THEN RETURN TRUE; 
bane LOG_FLAG = CLiSPRESENT(SD_LOG); 
097 ! 
4444 Get uaf record and get descriptor for logindev:Clogindir] 
0975 if men ef USER(MAIL$Q USERNAME); , 
aad N TRUE); 
0978 DESC £0} = ,(MAILST_UAF_BUFFCUAFS$T_DEFDEV])<CS_COUNT>; 
0979 pest 1) = 4 ie $T y' purrtuarst _DEFDEVI)<CS_STRING>; 
0980 STRS 03" _DX(C D_DESC,DESC) 
0981 DESCLO) = RAILS DAF BUFF CUARST DEFDIRJ)<CS_COUNT>; 
098 DESC 1 2 T_0A a4 gpUFECUAFST T_BEFDIRI)<CS_STRING>; 
098 STRSAPPEND CC COMMAND SC.DESC); 
0984 ee sttey = 
0985 2 DESCC1) = bésctol: 
SS 
0988 i Rename all the mail files to the login, directory. 
34:34 Note that if the login directory doesn't exist, this command won't create it. 
444 SET -NEW_DIR(DESC,COMMAND_DESC,.LOG_FLAG); 
$33 
1 


io TRUE 


003¢C 00000 -ENTRY 
55 000000006 00 9 Bobs MOVAB 
54 Far ff 9E 8 MOVAB 
53 00000000 9 5 MOV 
f 10 C2 0001 SUBL 
50 000000006 00 00 0001 MOVL 


CMD_SET_NODIR, Save R2,R3,R4,R5 
TURE. F_BOFF, R5 


OMMAND_DESC, R3 
(Si_USRSYSBUF, RO 


Page 


i 


ay 


0949 


0967 


z> 
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140 bytes, Routine Base: $CODE$ + 0932 


; Routine Size: 


ee : -) 
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pI DISKSVMSMASTER: MAIL. SRCIJSET.B32;1 (22) 


$332 1 END 
: +3 996 0 ELUDOM 


~-EXTRN LIBSSIGNAL 
PSECT SUMMARY 


: Name Bytes Attributes 

: SOWNS 24 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 2494 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
foie MG ee Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

F _$255$DUA28: fH YSL A 8.) 18619 46 0 1000 00:01.4 

: ~$255$DUA28: L.OBJJMA sir. L32;1 457 23 5 26 00:00.4 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SET/OBJ=OBJ$:SET MSRC$:SET/UPDATE=(ENHS$: SET) 

; Size: 2312 code + 206 data bytes 

; Run Time: 30: . J 


; Elapsed Time: 

3; Lines/CPU Min: 38s 

g Lexemes/CPU-Min: 27842 
; peaaty Used: 200 pages 
3 3 


; Compi tion. Complete 


| 
Library Statistics 
| 


ENT CORPORATION 
ND PROPRIETARY 
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